10 POKE53281,0:POKE53280,0:PRINT"[147]"
20 PRINT"  [159][204][207][193][196][211][212][193][210] PRESENTS [154][207][206][197]-[211][195][210][197][197][206][160][215][201][206][206][197][210][211]"
40 PRINTTAB(7)"[153](C) 1988 BY [214]ARIOUS [193]UTHORS[152]"
50 B$(1)="    [194][193][195][203][160][212][207][160][204][207][193][196][211][212][193][210]     "
55 B$(2)=" [211] [201] [216] [208] [193] [195] [203]   [208] [204] [213] [211] "
60 B$(3)="   [194] [210] [197] [193] [203] - [198] [193] [211] [212]   "
70 B$(4)="       [210] [197] [193] [195] [200] !       "
75 B$(5)="  [196] [193] [212] [193] [205] [193] [203] [197] [210]   [196]  "
78 B$(6)="  [196] [193] [212] [193] [205] [193] [203] [197] [210]   [193]  "
80 B$(7)="   [211] [197] [193]   [194] [193] [212] [212] [204] [197]   "
85 B$(8)="   [212] [201] [205] [197]   [212] [210] [201] [193] [204]   "
90 B$(9)="     6 4   [212] [201] [205] [197] [210]     "
100 FORI=1TO9
110 PRINTTAB(8)""B$(I)
120 NEXT:POKE198,0
200 K=1
210 POKE214,K*2+3:PRINT
220 PRINTTAB(8)""B$(K)
230 POKE214,23:PRINT:PRINTTAB(8)"[158][213]SE CURSOR KEYS AND [210][197][212][213][210][206][152][145][145]"
240 GETA$:IFA$<>"[145]"ANDA$<>""ANDA$<>CHR$(13)THEN240
250 IFA$=CHR$(13)THEN300
260 POKE214,K*2+3:PRINT:PRINTTAB(8)B$(K)
270 IFA$=""THENK=K+1:IFK>9THENK=1
280 IFA$="[145]"THENK=K-1:IFK<1THENK=9
290 PRINT"":GOTO210
300 POKE214,K*2+3:PRINT:IFK<>6THENPRINT"[204]OADING[144]"
302 OPEN15,8,15,"I0":CLOSE15
305 POKE214,16:PRINT"[144]"
310 ONKGOTO385,320,330,340,350,355,360,370,380
320 PRINT"LOAD"CHR$(34)"SIXPACK*"CHR$(34)",8":GOTO390
330 PRINT"LOAD"CHR$(34)"BREAK-F*"CHR$(34)",8":GOTO390
340 PRINT"LOAD"CHR$(34)"REACH!"CHR$(34)",8":GOTO390
350 PRINT"LOAD"CHR$(34)"DATAMAKER DEC"CHR$(34)",8":GOTO390
355 PRINT"LOAD"CHR$(34)"DATAMAKER ASC"CHR$(34)",8":GOTO390
360 PRINT"[144]LOAD"CHR$(34)"SEA BAT*"CHR$(34)",8":GOTO390
370 PRINT"LOAD"CHR$(34)"TIME TR*"CHR$(34)",8":GOTO390
380 PRINT"LOAD"CHR$(34)"64 TIMER"CHR$(34)",8":GOTO390
385 PRINT"LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
390 PRINT"RUN:"
400 POKE631,13:POKE632,13:POKE198,2
410 END